home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
cmdity
/
blcnts38.lha
/
BlocNotes
/
shownote.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1996-04-12
|
408b
|
25 lines
/*ShowNote.rexx*/
IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN do
call delay(150)
IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN exit
end
address 'blocnotes.rexx'
options results
if words(Arg(1))>0 then do
if Arg(1)='?' then do
say 'USAGE: SHOWNOTE <pattern>'
exit
end
text=Arg(1)
SEARCH text
id=result
if id=0 then do
say 'Not found.'
end
SHOW id
end